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INTRODUCTION 



This is a guide for the 6502 machine language programmer 
who wants to take advantage of the various subroutines in Apple- 
soft. The addresses included assume that the user has an Apple II 
Plus, an Applesoft firmware card, or a Language Card. This list 
is believed to be correct, but be warned that it was a spare time 
project. If you find errors, contact your user group. This data is 
meant for the experienced programmer, NOT THE BEGINNER. 
Read your Applesoft Reference manual for more information. 

Take special note of CHRGET. This subroutine is the heart of 
Applesoft. When Applesoft wants the next character or an instruc- 
tion it points TXTPTR at the program or the input buffer and 
JSRs to CHRGET. When Applesoft READs DATA, TXTPTR is 
temporarily set to the last used DATA statement. 

ABBREVIATIONS 

A the 6502 accumulator 

X the 6502 X register 

Y the 6502 Y register 

Z the zero flag of the 6502 status register 

C the carry flag of the 6502 status register 

A,X is a 16 bit number where A has the most significant byte and 
X the least significant byte. 



(Y,A) is the number or string whose address is in Y and A with 
the msb in Y and the Isb in A. 

FAC the floating point accumulator 
ARG the ARGument register 
msb most significant bit or byte 

Isb ' least significant bit or byte 
eol end of line token ($00) 

LABELS HEX ADDR LABELS 



A1 
A2 

ARYTAB 
BUF 

CHARAC 
CURLIN 

DATLIN 
DATPTR 
DSCTMP 

ENDCHR 

ERRFLG 

ERRLIN 

ERRNUM 

ERRPOS 

ERRSTK 

FBUFFR 

FIRST 

FORPNT 

FRESPC 

FRETOP 

H2 

HIGHDS 
HIGHTR 
HPAG 

INDEX 
INVFLG 
LASTPT 
LINNUM 
LOWTR 

MEMSIZ 
OLDLIN 
ORMASK 
PRGEND 
REMSTK 
SPDBYT 
STREND 

STRNG1 
STRNG2 
SUBFLG 
TEMPPT 
TXTTAB 



3C,3D 
3E,3F 
6B,6C 
200,2FF 
OD 
75,76 

7B,7C 
7D,7E 
9D,9E, 
9F 
OE 
D8 

DA,DB 
DE 

DC.DD 
DF 

100-110 
F0 

85,86 
71,72 
6F,70 
2C 

94,95 
96,97 
E6 



Apple monitor pointer for cassette routines 
Apple monitor pointer for cassette routines 
Start of array storage 
Line input buffer 
Used by STRLT2 

The current line number (=FF if in direct 
mode. 

Line number of current DATA statement 
The address of the next DATA comes from 
Temp string descriptor 



5E.5F 

32 

53 

50,51 
9B,9C 

73,74 
77,78 
F3 

AF,BO 

F8 

F1 

6D,6E 

AB,AC 
AD,AE 
14 

52 

67,68 



Used by SRTLT2 
$80 if ON ERR active 
Line number where error occurred 
Which error occurred 
TXTPTR save for HNDLERR 
Stack pointer value before error 
FOUT buffer 
Used by PLOTFNS 
General pointer, see COPY 
Temp pointer for string storage routines 
Bottom of string storage 
Used by PLOTFNS 
Used by BLTU 
Used by BLTU 

HIRES page to plot on. ($20 for HGR, 
$40 for HGR2) 

Temp pointer for moving strings 

Mask for inverse output 

Last used temp string pointer 

General purpose 16 bit number location 

General purpose register. GETARYPT' 

FINDLN, BLTU 

HIMEM 

Last line executed 

Mask for flashing output 

The end of the program text 

Stack pointer saved before each statement 

Speed = delay number 

The top of array storage 

Pointer to a string. See MOVINS 
Pointer to a string. See STRLT2 
$00 subscripts allowed, $80=no subscripts 
Last used temporary-string descriptor 
Start of program text 
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V2 

VALTYP 

VARPNT 
VARTAB 



CHRGET 
CHRGOT 



2D Used by PLOTFNS 
11 Flags last FAC operation 0=number, FF 
string 

83,84 Used by PTRGET 
69.6A Start of variable storage 

TXTPTR INPUT ROUTINES 

00B1(177) (Increment TXTPTR) 
00B7(183) (No increment) 



These routines load A from TXTPTR and set certain 6502 status 
flags. X and Y are not changed. 

On exit: 

A=the character 

Z is the set if A Voreol ($3A or $00) 

C is clear if A is an ASCII number ('0' to '9% 

TXTPTR TO INTEGER 

LINGET DAOC (55820) 

Read a line number (integer to 63999) from TXTPTR into 
LINNUM. LINGET assumes that the 6502 registers and A have 
been set up by the CHRGET that fetched the first digit. Normally 
exits through CHARGET which fetches the character after the 
number. If the number is greater than 63999 then LINGET exits 
via SYNTAX ERROR. LINNUM is zero if there is no number at 
TXTPTR. 

GTBYTC E6F5 (51925) 

JSR to CHRGET to gobble a character and fall into GETBYT. 
GETBYT E6F8 (59128) 
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FAC format 

-10 84 AO 00 00 00 

10 84 AO 00 00 00 

Arithmetic routine calling conventions: 
For single argument functions: 
The argument is in FAC. 
The result is left in FAC. 
For two argument functions: 

The first argument is in ARG (see CONUPK). 
The second argument is in FAC. 
The result is left in FAC. 

FLOATING POINT REGISTERS 
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FF 
00 



NOTE: many of the following locations are used for other 
things when.not being used by the floating point math package. 





FAC 


ARG 


TEMPI TEMP2 


TEMP3 


RND 


EXP 


9D 


A5 


93 


98 


8A 


C9 


HCHO 


9E 


A6 


94 


99 


8B 


CA 


MOH 


9F 


A7 


95 


9A 


8C 


CB 


MO 


AO 


A8 


96 


9B 


8D 


CC 


LO 


A1 


A9 


97 


9C 


8E 


CD 


SGN 


A2 


AA 




(packed format) 





FMULT 
Move the 
fall into . , 
FMULTT 



FLOATING POINT OPERATORS 

E97F (59775) 
number in memory pointed to by Y,A into ARG and 

E982 (59778) 



Evaluates the formula at TXTPTR, leaves the result in FAC, and 
falls into CONINT. >n the entry TXTPTR points to the first 
character of the formula for the first number. PLOTFNS puts the 
first number in FIRST and the second number in H2 and V2. 



Multiply FAC and ARG. On entry A and Z reflect FACEXP. 
FDIV EA66 (90006) 



PLOTFNS 



FIEC 



Get 2 LORES plotting coordinates (0-47,0-47) from TXTPTR 
separated by a comma. On entry TXTPTR points to the first 
character of the formula for the first number. PLOTFNS puts 
the first number in FIRST and the second number in H2 and V2. 



HFNS 



F6B9 



(63161) 

Get HIRES plotting coordinated (0-279,0-191) from TXTPTR. 
On entry TXTPTR points to the first character of the formula for 
the first number. Leaves the 6502 registers set up for HPOSN. 

On exit: 

A= vertical coordinate 
X= Isb of .horizontal coordinate 
Y= msb of horizontal coordinate. 



FLOATING POINT MATH PACKAGE INTRODUCTION 

This is the number format used throughout Applesoft: 

The exponent is a single byte signed number (EXP) in excess 
$80 form (the signed value has $80 added to it). The mantissa is 
4 bytes (HO, MOH, MO,LO). The binary point is assumed to be 
to the right of the most significant bit. Since in binary floating 
point notation the msb is always 1, the number's sign is kept 
there when the number is stored in packed form in memory. 
While in the math package the sign is kept in a separate byte 
(SGN) where only bit 7 is significant. If the exponent is zero 
then the number is zero although the mantissa isn't necessarily 
zero. 

Examples: . 

EXP HO MOH MO LO SGN 
Packed format 



Move the number in memory pointed to by Y,A into ARG and 
fall into ... 

FIDVT EA69 (60009) 

Divide ARG by FAC. On entry A and Z reflect FACEXP. 
(61932)\ FADD E7BE (59326) 

Move the number in memory pointed to by Y,A into ARG and 
fall into . . . 

FADDT E7C1 (59329) 

Add FAC and ARG. On entry A and Z reflect FACEXP. 

FSUB E7A7 (59303) 

Move the number in memory pointed to by Y,A, into ARG and 
fall into . . . 

FSUBT E7AA (59306) 

Subtract FAC from ARG. On entry A and Z reflect FACEXP. 

FPWRT EE97 (61079) 

Exponentiation (ARG to the FAC power). On entry A and Z 
should reflect the value of FACEXP. 

NOTE: Most FAC move routines set up A and Z to reflect 
FACEXP but a LDA $9D will insure the proper values. 



FLOATING POINT CONSTANTS 



-10 
10 



84 
84 



AO 
20 



00 
00 



00 
00 



00 
00 



NOTE: The following addresses point to numbers in packed form 


suitable for use by CONUPK and MOVMF. 




RND 


00C9 


(201) 


1/4 


F070 


61552) 


1/2 


EE64 


61028) 


-1/2 


E937 


59703 


1 


E913 


59667 


10 


EA50 


59984 


SQR(.5) 


E92D 


59693 


SQR(2) 


E932 


59698 


LN(2) 


E93C 


59708 


LOG(e)2 


EEDB 


61147 


PI/2 


F063 


61539 


Pl*2 


F06B 


61547 


-32768 


E0FE 


(57598) 


1000000000 


ED14[1E9] 


(60692[489]) 



PAG Ei 1 4 



FLOATING POINT FUNCTIONS 

SGN EB90 
Calls SIGN and floats the result in the FAC. 
On exit: 

FAC=1 If FAC was greater than 
FAC=0 If FAC was equal to 
FAC=-1 If FAC was less than 

ABS EBAF 

Absolute value of FAC 

INT EC23 

Greatest integer value of FAC. Uses QINT and floats the result 

SQR EE8D 

Take the square root of FAC 

LOG E941 

Log base e of FAC 

EXP EF09 

Raise e to the FAC power 

RND EFAE 

Form a 'random' number in FAC 
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SUMMARY OF MOVES: 



(60304) 


FAC 


=>(Y,A) 


EB2B 




FAC 


=> (o,x) 


EB23 




FAC 


=>TEMP 1 


EB21 




FAC 


->TEMP2 


EB1E 




FAC 


=> ARG 


EB63 






=>FAC 


EAF9 






=> ARG 


EB63 


(60335) 


ARG 


=> FAC 


EB53 






FLOATING POINT 


(60451) 


SIGN 




EB82 



COS 

COS (FAC) 
SIN 

SIN(FAC) 
TAN 

TAN (FAC) 
ATN 

ARCTAN(FAC) 



EFEA 
EFF1 

F03A 
F09E 



(61069) 

(59713) 

(61193) 

(61358) 

(61418) 

(61425) 
(61498) 
(61598) 



FLOATING POINT NUMBER MOVE ROUTINES 

MOVFM EAF9 (60153) 

Move memory pointed to by Y,A, into FAC. On exit A and Z 
reflect FACEXP. 

MOV2F EB1E (60190) 

Pack FAC and move it into temporary register 2. Uses MOVMF 
On exit A and Z reflect FACEXP. 

MOV1F EB21 (60193) 

Pack FAC and move it into temporary register 1. Uses MOVMF 
On exit A and Z reflect FACEXP. 

MOVML EB23 (60195) 

Pack FAC and move it into zero page area pointed to by X. Uses 
MOVMF. On exit A and Z reflect FACEXP. 

MOVMF EB2B (60203) 

Pack FAC and move it into memory pointed to by Y.X. On exit 
A and Z reflect FACEXP. 

MOVFA EB53 
Move ARG into FAC. On exit A=FACEXP and Z is set. 
MOVAF EB63 
Move FAC into ARG. On exit A=FACEXP and Z is set. 

CONUPK E9E3 (59875) 

Load ARG from memory pointed to by Y,A. On exit A and Z 
reflect FACEXP. 



(60243) 
(60259) 



Set A according to the value of FAC. 



(60290) 



On exit: 
A=1 
A=0 
A=FF 

FOUT 



if FAC is positive, 
if FAC=0 
if FAC is negative 

ED34 (60724) 

Creates a string in FBUFFR equivalent to the value of FAC. On 
exit Y,A points to the string. The string ends in a zero. FAC is 
scrambled. Use STROUT to then print the number. 

FCOMP EBB2 (60338) 

Compare FAC and a packed number in memory pointed to by 
Y,A. 



On exit: 
A=1 
A=0 
A=FF 



if (Y,A)<FAC 
if Y,A) = FAC 
if (Y,A) > FAC 



EEDO 



E7A0 



EA55 



NEGOP 
FAC= -FAC 
FADDH 

Add 1/2 to FAC 
DIV10 

Divide FAC by 10. Returns positive numbers only. 
MUL10 EA39 

Multiply FAC by 10. Works for both positive and negative num 
bers. 

INTEGER TO FAC 

SNGFLT E301 

Float the unsigned integer in Y, 

GIVAYF E2F2 

Float the signed integer in A,Y. 

FLOAT EB93 

Float the signed integer in A. 

FAC TO INTEGER 

CONINT E6FB 

Convert FAC into a single byte number in X and FACLO. Nor- 
mally ■exits through CHRGET. If FAC is greater than 255 or less 
than then CONINT exits via ILLEGAL QUANTITY ERROR. 

AYINT E10C (57612) 

If FAC is less than +32767 and greater than -32767 then perform 

0INT EBF2 (60402) 

Quick greatest integer function. Leaves INT(FAC) in FACHO 
MO, LO signed. QINT assumes FAC < 2 to the 23rd (8388608 
decimal) 



(61136) 
(59296) 
(59989) 
(59961) 



(58113) 
(58098) 
(60307) 

(59131) 
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GETADR 



E752 



(59218) STRLIT 



Convert the number in FAC (-65535 to 65535) into a 2 byte 
integer (0-65535) in LINNUM. 



GETNUM 



E746 



(59206) 

Read a 2 byte number into LINNUM from TXTPTR, check for 
a comma, and get a single byte number in X. On entry TXTPTR 
points to the first character of the formula for the first number. 
Uses FRNUM, GETADR, CHKCOM, GETBYT. 

COMBYTE E74C (59212) 

Check for a comma and get a byte in X. Uses CHKCOM, 
BETBYT. On entry TXTPTR points to the comma. 



FRMEVL 



TXTPTR TO FAC 

DD7B 



(56699) 

Evaluate the formula at TXTPTR using CHRGET and leave the 
result in FAC. On entry TXTPTR points to the first character of 
the formula. This is the main subroutine for the commands that 
use formulas and works for both strings and numbers. If the for- 
mula is a string literal, FRMEVL gobbles the opening quote and 
executes STRLIT and ST2TXT. 



FRMNUM 



DD67 



(56679) 

Evaluate the formula at TXTPTR, put it in FAC, and make sure 
it's a number. On entry TXTPTR points to the first character of 
the formula. TYPE MISMATCH ERROR results if the formula is 
a string. 

FIN EC4A (60490) 

Input a floating point number into FAC from CHRGET. FIN 
assumes that the 6502 registers and A have been set up by the 
CHRGET that fetched the first digit. 

STRING UTILITIES 

In Applesoft strings have three parts: the descriptor, a pointer to 
the descriptor, and the ASCII string. A string descriptor contains 
the length of the string and the address of its first character. See 
page 137 of the Applesoft Reference Manual. Through most of 
the routines the descriptor is left in memory and a pointer is 
kept in FAC. The pointer is the address of the descriptor. The 
actual string could be anywhere in memory. In a program, 1A$= 
"HI" will leave a descriptor pointing into the program text. 

CAT E597 (58775) 

Concatenate two strings. FACMO,LO point to the first string's 
descriptor and TXTPTR points to the '+' sign. 

STRINI E3D5 (58325) 

Get space for creation of a string and create a descriptor for it 
in DSCTMP. On entry A=length of the string. 

STRSPA E3DD (58333) 

JSR to GETSPA and store the pointer and length in DSCTMP. 

COPY DAB7 (55991) 

Free the string temporary pointed to by Y,A and move it to the 
memory pointed to by FORPNT. 

MOVINS E5D4 (58836) 

Move a string whose descriptor is pointed to by STRNG1 to 
memory pointed to by FRESPA. 

MOVSTR E5E2 (58850) 

Move the string pointed to by Y,X with a length of A to memory 
pointed to by FRESPA. 

STRTXT DE81 (56961) 

Sets Y,A equal to TXTPTR plus C and falls into STRLIT. 



E3E7 (58343) 

Store a quote in ENDCHR and CHARAC so that STRLT2 will 
stop on it. 



STRLT2 



E3ED 



(58349) 

Take a string literal whose first character is pointed to by Y,A 
and build a descriptor for it. The descriptor is built in DSCTMP, 
but PUTNEW transfers it into a temporary and leaves a pointer 
to it in FACMO,LO. Characters other than zero that terminate 
the string should be saved in CHARAC and ENDCHR. Leading 
quotes should be skipped before STRLT2. On exit the character 
after the string literal is pointed to by STRNG2. Falls into 
PUTNEW. 



PUTNEW 



E42A 



(58410) 

Some string function is returning with a result in DSCTMP. Move 
DSCTMP to a temporary descriptor, put a pointer to the descrip- 
tor in FACMO.LO, and flag the result as a string. 

(58450) 



GETSPA 



E452 



Get space for character string. May force garbage collection. 
Moves FRESPC and FRETOP down enough to store the string. 
On entry A= number of characters. Returns with A unaffected 
and pointer to the space in Y,X, FRESPC, and FRETOP. If 
there's no space then OUT OF MEMORY error. 

FRESTR E5FD (58877) 

Make sure that the last FAC result was a string and fall into 
F RE FAC. 

FRETMP E604 (58884) 

Free up a temporary string. On entry the pointer to the descrip- 
tor is in Y,A. A check is made to see if the descriptor is a tempor- 
ary one allocated by PUTNEW. If so, the temporary is freed up 
by updating TEMPPT. If a temp is freed up a further check is 
made to see if the string is the lowest in memory. If so, that area 
of memory is freed up also by updating FRETOP. On exit the 
address of the string is in INDEX and Y,X and the string length 
is in A. 



FRETMS 



E635 



(58933) 

Free the temporary descriptor without freeing up the string. On 
entry Y,A point to the descriptor to be freed. On exit Z is set if 
anything was freed. 



DEVICE INPUT ROUTINES 

INLIN D52C (54572) (No prompt) 

INLIN+2 D52E (54574) (Use character in X for prompt) 

Ipput a line of text from the current input device into the input 
buffer, BUF, and fall into GDBUFS. 

GDBUFS D539 (54585) 

Puts a zero at the end of the input buffer, BUF, and masks off 
the msb on all bytes. 

On entry: 

X= the end of the input line 

On exit: 

A=0 

X=FF 

Y=1 



INCHR 



D553 



(54611) 

Get one character from the current input device in A and mask 
off the msb. INCHR uses the main Apple input routines and sup- 
ports normal handshaking. 
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DEVICE OUTPUT ROUTINES 
STROUT DB3A 



(56122) 

Print string pointed to by Y,A. The string must end with a zero 
or a quote. 

STRPRT DB3D (56125) 

Print a string whose descriptor is pointed to by FACMO, FACLO. 



DB5C 
INVERSE, 

DAFB 
DB57 



DB5A 



ED19 



(56156) 

FLASH, and NORMAL in 
(56059) 

(56151) 

(56154) 



OUTDO 

Print the character in A, 
effect. 

CRDO 

Print a carriage return. 
OUTSPC 
Print a space. 
OUTQST 

Print a question mark. 
INPRT 

Print "IN" and the current 
LINPRT. 

LINPRT ED24 

Prints the 2 byte unsigned number in X,A. 

PRNTFAC ED2E 

Prints the current value of FAC. FAC is destroyed. Uses FOUT 
and STROUT. 



(60697) 

line number from CURLIN. Uses 



(60708) 
(60718) 



PTRGET 



INTERNAL LOCATOR ROUTINES 

DFE3 



(57315) 

Read a variable name from CHRGET and find it in memory. On 
entry TXTPTR points to the first character of the variable name. 
On exit the address to the value of the variable is in VARPNT and 
Y,A. If PTRGET can't find a simple variable it creates one. If it 
can't find an array it creates one dimensioned to to 10 and set 
all elements equal to zero. 

GETARYPT F7D9 (63449) 

Read a variable name from CHRGET and find it in memory. On 
entry TXTPTR points to the first character of the variable name. 
This routine leaves LOWTR pointing to the name of the variable 
array. If the array can't be found the result is an OUT OF DATA 
ERROR. 

FNDLIN D61A (54810) 

Searches the program for the line whose number is in LINNUM. 
On exit: 

1 . If C set LOWTR points to the link field of the desired line. 

2. If C clear then line not found. LOWTR to the next higher 
line. 

DATA D995 (55701) 

Move TXTPTR to the end of the statement. Looks for ':' or eol 
(0). 

DATAN D9A3 (55715); 

Calculate the offset in Y from TXTPTR to the next Voreol (0). 
REMN D9A6 (55718) 

Calculate the offset in Y from TXTPTR to the next col (0). 
ADDON D998 (55704) 

Add Y to TXTPTR. 
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INITIALIZATION ROUTINES 

SCRTCH D64B (54859) 

The 'NEW' command. Clears the program, variables, and stack. 
CLEARC D66C (54892) 

The 'CLEAR' command. Clears the variables and stack. 
STKINI D683 (54915) 

Clears the stack. 

RESTOR D849 (55369) 

Sets the DATA pointer, DATPTR, to the bebinning of the 
program. 

STXTPT D697 (54935) 

Set TXTPTR to the beginning of the program. 

STORAGE MANAGEMENT ROUTINES 

BLTU D393 (54163) 

Block transfer makes room by moving everything forward. 
On entry: 

Y,A and HIGHDS=destination of high address + 1 
LOWTR=lowest address to be moved 
HIGHTR=highest address to be moved + 1 
On exit: 



LOWTR is unchanged 
HIGHTR=LOWTR-$100 
HIGHDS=lowest address transferred 



M00 



REASON 



D3E3 



(54243) 

Makes sure there's enough room in memory, Checks to be sure 
that the address Y,A is less than FRETOP. May cause garbage 
collection. Causes OMERR if there's no room. 



GARBAG 



E484 



(58500) 



Move all currently used strings up in memory as far as possible. 
This maximizes the free memory area for more strings or numeric 
variables. 

MISCELLANEOUS BASIC COMMANDS 

Note that many commands are not documented because they 
jump into the new statement fetcher and cannot be used as a sub- 
routine. 

CONT D898 (55448) 

Moves OLDTXT and OLDLIN into TXTPTR and CURLIN. 

NEWSTT D7D2 (55250) 

Execute a new statement. On entry TXTPTR points to the ':' 
preceding the statement or the zero at the end of the previous 
line. Use NEWSTT to restart the program with CONT. 777/S 
ROUTINE DOES NOT RETURN. 

RUN D566 (54630) 

Run the program in memory. THIS ROUTINE DOES NOT 
Rb TURN. 



GOTO 



D93E 



(55614) 



Uses LINGET and FNDLIN to update TXTPTR. GOTO assumes 
that the 6502 registers and A have been set up by the CHRGET 
that fetched the first digit. 

LET DA46 (55878) 

Uses CHRGET to get address of the variable, '=', evaluate the 
formula, and store it. On entry TXTPTR points to the first char- 
acter of the variable name. 
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HIRES GRAPHICS ROUTINES 



NOTE: Regardless of which screen is being displayed, HPAG (lo- 
cation $E6) determines which screen is drawn on. ($20 for HGR, 
$40 for HGR2) 
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ERROR PROCESSOR ROUTINES 

ERROR D412 (54290) 



HANDLERR 



HGR2 F3D4 (62420) 

Initialize and clear page 2 HIRES. 

HGR F3DE (62430) 

Initialize and clear page 1 HIRES. 

HCLR F3EE (62446) 

Clear the HIRES screen to black. 

BKGND F3F2 (62450) 

Clear the HIRES screen to last plotted color. 

HPOSN F40D (62477) 

Positions the HIRES cursor without plotting, HPAG determines 
which page the cursor is pointed at. 

On entry: ISCNTC 

Horizontal=Y,X 
Vertical=A 

HP LOT F453 



Checks ERRFLG and jumps to HNDLERR if ONERR is active. 
Otherwise it prints <or> '?' <error message &X> 'ERROR'. If 
this is during program execution then it also prints 'IN' and the 
CURLIN. 



F2E9 



(62185) 

Saves CURLIN in ERRLIN, TXTPTR in ERRPOS, X in ERR- 
NUM, and REMSTK in ERRSTK. REMSTK is equal to the 6502 
stack pointer and is set up at the start of each statement. X con- 
tains the error code. This may be used to interrupt the execution 
of a BAS|C program. See the Applesoft Reference Manual page 
1 36 for the value of X for a given error. 

RESUME F317 (62231) 

Restores CURLIN from ERRLIN and TXTPTR from ERRPOS 
and transfers ERRSTK into the 6502 stack pointer. 

SYNTAX CHECKING ROUTINES 



D858 

Checks the Apple keyboard for a control — C ($83), 
the BREAK routine if there is a control - C. 



Call HPOSN then try to plot a dot at the cursor's position. No 
dot may be plotted if plotting non-white at a complementary 
color X coordinate. 



HLIN 



F530 



Draws a line from the last plotted point or line destination to the 
coordinate in the 6502 registers. 

On entry: 



(62547) CHKNUM DD6A 

Make sure FAC is numeric. See CHKVAL. 
CHKSTR DD6C 
Make sure FAC is a string. See CHKVAL. 
CHKVAL DD6D 



(62768) 



Horizontal = 
Vertical=Y 

HFIND 



=X,A 



F5CB (62923) 

Convert the HIRES cursor's position to X-Y coordinates. Used 
after SHAPE to find where you've been left. 

On exit: 

$E0=horizontal Isb 
$E1 horizontal msb 
$E2=vertical 



DRAW 



F601 



(62977) 



(55384) 
Executes 

(55682) 
(56684) 
(56685) 

Checks the result of the most recent FAC operation to see if it 
is a string of numeric variable. A TYPE MISMATCH ERROR 
results if FAC and C don't agree. 

On entry: 

C set checks for strings 
C clear checks for numerics 

ERRDIR E306 (58118) 

Causes ILLEGAL DIRECT ERROR if the program isn't running. 
X is modified. 

ISLETC E07D (57469) 

Checks A for an ASCII letter ('A' to 'Z'). On exit C set if A is a 
letter. 



Draw the shape pointed to by Y,X by inverting the existing color 
of the dots the shape draws over. On entry A=rotation factor. 

SETHCOL F6EC (63213) 

Set the HIRES color to X. X must be less than 8. 

SHLOAD F775 (63349) 

Loads a shape table into memory from tape above MEMSIZ 
(HIMEM) and sets up the pointer at $E8. 

CASSETTE ROUTINES 

SAVE D8B0 (55472) 

Save the program in memory to tape. 

LOAD D8C9 (55497) 

Load a program from tape.. 

VARTIO D8F0 (55536) 

Set up A1 and A2 to save 3 bytes ($50 -$52) for the length. 
PROGIO D901 (55553) 

Set up A1 and A2 to save the program text. 



PARCHK DEB2 (57010) 

Checks for '(', evaluates a formula, and checks for ')'. Uses 
CHKOPN and FRMEVL then falls into CHKCLS. 

CHKCLS DEB8 (57016) 

Checks at TXTPTR for ')'. Uses SYNCH R. 

CHKOPN DEBB (57019) 

Checks at TXTPTR for '(', Uses SYNCHR. 

CHKCOM DEBE (50722) 

Checks at TXTPTR for Uses SYNCHR. 

SYNCHR DECO (57024) 

Checks at TXTPTR for the character in A. TXTPTR is not 
modified. Normally exits through CHRGET. Exits with SYNTAX 
ERROR if they don't match. 



XDRAW 



F65D 



(62977) 



Draw the shape pointed to by Y, X by inverting the existing color 
of the dots the shape draws over. On entry, A=rotation factor. 



PAGE 18 



THE APPLE ORCHARD 



MARCH/APRIL 1980 



A1 

A2 

ABS 

ADDON 

ARYTAB 

ATN 

AYINT 



BKGND 

BLTU 

BUF 



CAT 

CHARAC 

CHKCLS 

CHKCOM 

CHKNUM 

CHKOPN 

CHKSTR 

CHKVAL 

CHRGET 

CHRGOT 

CLEARC 

COM BYTE 

CON I NT 

CONT 

CONUPK 

COPY 

COS 

CRDO 

CURLIN 



DATA 

DATAN 

DATLIN 

DATPTR 

DIV10 

DRAW 

DSCTMP 



ENDCHR 

ERRDIR 

ERRFLG 

ERRLIN 

ERRNUM 

ERROR 

ERRPOS 

ERRSTK 

EXP 



FADD 

FADDH 

FBUFFR 

FCOMP 

FDIV 

FIN 

FIRST 

FLOAT 

FMULT 

FNDLIN 

FORPNT 

FOUT 

FPWRT 



-A— 

3C.3D 

3E,3F 

EBAF 

D998 

6B,6C 

F09E 

E10C 



F3F2 
D393 
200-2 FF 



D995 

D9A3 

7B,7C 

7D,7E 

EA55 

F601 

9D-9F 

~-E— 

OE 

E306 

D8 

DA,DB 

DE 

D412 

DC,DD 

DF 

ER09 



P 

E7BE 

E7A0 

100-1 FF 

EBB2 

EA66 

EC4A 

FO 

EB93 

E97F 

D61A 

85,86 

ED34 

EE97 



12 
12 
14 
16 
12 
14 
14 



17 
16 
12 



15 
12 
17 
17 
17 
17 
17 
17 
13 
13 
16 
15 
14 
16 
14 
15 
14 
16 
12 



16 
16 
12 
12 
14 
17 
12 



12 
17 
12 
12 
12 
17 
12 
12 
14 



13 
14 
12 
14 
13 
15 
12 
14 
13 
16 
12 
14 
13 



FREFAC 

FRESPC 

FRESTR 

FRETMP 

FRETOP 

REMEVL 

FRMNUM 

FSUB 



GARBAG 

GDBUFS 

GETADR 

GETARYPT 

GTBYTC 

GETBYT 

GETNUM 

GETSPA 

GIVAYF 

GOTO 



H2 

HANDLERR 

HCLR 

HFIND 

HFNS 

HGR 

HGR2 

HIGHDS 

HIGHTR 

HLIN 

HPAG 

HP LOT 

HPOSN 



INDEX 

INCHR 

INLIN 

INLIN+2 

INPRT 

INT 

INVFLG 
ISCNTC 
ISLETC 



LASTPT 
LET 

LINGET 

LINNUM 

LINPRT 

LOAD 

LOG 

LOWTR 



MEMSIZ 

MOV1F 

MOV2F 

MOVAF 

MOVFA 

MOVFM 

MOVINS 

MOVMF 

MOVML 

MOVSTR 

MUL10 



E600 
71,72 
E5FD 
E604 
6F,70 
DD7B 
DD67 
E7A7 



E484 
D539 
E752 
F7D9 
E6F5 
E6F8 
E746 
E452 
E2F2 
D93E 



— H — 

2C 

F2E9 

F3EE 

F5CB 

F6B9 

F3DE 

F3D4 

94,95 

96,97 

F530 

E6 

F453 

F40D 

-I- 

5E,5F 
D553 
D52C 
D52E 
ED19 
EC 23 
32 

D858 
E07D 



-L- 

53 

DA46 

DAOC 

50,51 

ED24 

D8C9 

E941 

9B.9C 

_M- 

73,74 
EB21 
EB1E 
EB63 
EB53 
EAF9 
E5D4 
EB2B 
EB23 
E5E2 
EA39 



15 
12 
15 
15 
12 
15 
15 
13 



16 
15 
15 
16 
13 
13 
15 
15 
14 
16 



12 
17 
17 
17 
13 
17 
17 
i2 
12 
17 
12 
17 
17 



12 
15 
15 
15 
16 
14 
12 
17 
17 



12 
16 
13 
12 
16 
17 
14 
12 



12 
14 
14 
14 
14 
14 
15 
14 
14 
15 
14 



NEGOP 
NEWSTT 



OLDLIN 

ORMASK 

OUTDO 

OUTQST 

OUTSPC 



PARCHK 

PLOTFNS 

PRGEND 

PROGIO 

PRTFAC 

PTRGET 

PUTNEW 



QINT 



REASON 

REMN 

REMSTK 

RESTOR 

RESUME 

RND 

RUN 



SAVE 
SCRTCH 
SETHCOL 
SGN 

SHLOAD 

SIGN 

SIN 

SNGFLT 

SPDBYT 

SQR 

STKINI 

STREND 

STRINI 

STRLIT 

STRLT2 

STRNG1 

STRNG2 

STROUT 

STRPRT 

STRSPA 

STRTXT 

STXTPT 

SUBFLG 

SYNCHR 



TAN 

TEMPPT 

TXTTAB 



V2 

VALTYP 
VARPNT 
VARTAB 
VARTIO 



XDRAW 



-N— 

EEDO 
D7D2 



77,78 
F3 

DB5C 
DB5A 
DB57 



DEB2 

F1EC 

AF,BO 

D901 

ED2E 

DFE3 

E42A 



EBF2 

— R- 

D3E3 
D9A6 
F8 

D849 
F317 
EFAE 
D566 



D8BO 

D64B 

F6EC 

EB80 

F775 

EB82 

EFF1 

E301 

F1 

EE8D 

D683 

6D,6E 

E3D5 

E3E7 

E3ED 

AB,AC 

AD,AE 

DB3A 

DB3D 

E3DD 

DE81 

D697 

14 

DECO 

— T— 

F03A 
52 

67,68 

-V- 

2D 
11 

83,84 
69,6A 
D8FO 

-X- 

F65D 



14 
16 



12 
12 
16 
16 
16 



17 
13 
12 
17 
16 
16 
15 



14 



16 
16 
12 
16 
17 
14 
16 



17 
16 
17 
14 
17 
14 
14 
14 
12 
14 
16 
12 
15 
15 
15 
12 
12 
16 
16 
15 
15 
16 
12 
17 



14 
12 
12 



13 
13 
13 
13 
17 



17 



